home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 109 (1989-08-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 109 (1989-08-15)(Ossowski, Stefan)(DE)(PD).adf / Includes / dins.block < prev    next >
Text File  |  1989-02-21  |  667b  |  26 lines
  1. dins   lea     tentab(pc),a1   ;wandelt d2.l in dezimalstring
  2.        clr.l   d0
  3. lber   subq    #1,d1
  4.        tst.b   d1
  5.        beq     dnext
  6.        subq    #4,a1
  7.        addq    #1,d0
  8.        bra     lber
  9. dnext  moveq   #"0",d1         ;erwartet:       d2.l  Zahl
  10. ddec   addq    #1,d1           ;länge in d1.b   in a0 Zeiger auf Buffer
  11.        sub.l   (a1),d2
  12.        bcc     ddec
  13.        subq    #1,d1
  14.        add.l   (a1),d2
  15.        move.b  d1,(a0)+
  16.        lea     4(a1),a1       dbra    d0,dnext
  17.        rts
  18.        dc.l    10000000
  19.        dc.l    1000000
  20.        dc.l    100000
  21.        dc.l    10000
  22.        dc.l    1000
  23.        dc.l    100
  24.        dc.l    10
  25. tentab dc.l    1
  26.